home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 19
/
Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso
/
Aminet
/
comm
/
cnet
/
cnet_toolkit.lha
/
routines
/
SCROLL
< prev
next >
Wrap
Text File
|
1997-04-05
|
289b
|
5 lines
SCROLL: procedure;parse arg line,text;sp=2;getuser27;ll=result-1
do a=1 to length(text)+ll;ch=substr(text,a,1);if index("¹²³",ch)>0 then sp=translate(ch,"246","¹²³")
else sendstring ""line";0HP"line";"ll"H"ch;call delay(sp);maygetchar;if result~="NOCHAR" then leave;end
return